home *** CD-ROM | disk | FTP | other *** search
/ TPUG - Toronto PET Users Group / TPUG Users Group CD / TPUG Users Group CD.iso / CRS / crs07.d81 / ramex.arc / RE.DEMO (.txt) next >
Commodore BASIC  |  2009-10-10  |  6KB  |  136 lines
  1. 3 IF PEEK(49152)=32 AND PEEK(49153)= 186 THEN SYS49152:GOTO5
  2. 4 LOAD"RE7.O",8,1
  3. 5 DIM F(30),B(30),C(30),BC(30)
  4. 6 FAST
  5. 10 POKE53280,6:POKE53281,6:PRINT"[147][159]"CHR$(14)CHR$(8)
  6. 20 PRINT"    [176][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][174]"
  7. 21 PRINT"    [221]                    [221]"
  8. 22 PRINT"    [221] [210][193][205] [197]XPANSION [214]1.0 [221]"
  9. 23 PRINT"    [221]                    [221]"
  10. 24 PRINT"    [221]         BY         [221]"
  11. 25 PRINT"    [221]                    [221]"
  12. 26 PRINT"    [221]    [199]LENN [210]AUDINS   [221]"
  13. 27 PRINT"    [221]                    [221]"
  14. 29 PRINT"    [173][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][189]"
  15. 30 AD=0:BK=0:ED=256*256:SC=1024:CL=55296:CT=1
  16. 35 GOSUB 50
  17. 40 GOTO 100
  18. 50 F(CT)=AD:B(CT)=BK
  19. 51 STASH 1000,SC,AD,BK:AD=AD+1000:IF AD>ED THEN AD=AD-ED:BK=BK+1
  20. 54 C(CT)=AD:BC(CT)=BK:CT=CT+1
  21. 55 STASH 1000,CL,AD,BK:AD=AD+1000:IF AD>ED THEN AD=AD-ED:BK=BK+1
  22. 56 RETURN
  23. 60 FETCH 1000,SC,F(R),B(R):FETCH 1000,CL,C(R),BC(R):RETURN
  24. 100 PRINT"[154][176][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][174]"
  25. 101 PRINT     "[221]                          [221]"
  26. 102 PRINT     "[221][160]  [212]HIS IS [198]REEWARE...... [221]"
  27. 103 PRINT     "[221]                          [221]"
  28. 104 PRINT     "[221]     [201]F YOU FIND THIS     [221]"
  29. 105 PRINT     "[221]   PROGRAM USEFUL, [201] ASK  [221]"
  30. 106 PRINT     "[221]   THAT YOU SEND A 5 OR   [221]"
  31. 107 PRINT     "[221]   10 DOLLAR CONTRIBUTION [221]"
  32. 108 PRINT     "[221]   IN RETURN [201] WILL SEND  [221]"
  33. 109 PRINT     "[221]   YOU THE SOURCE CODE    [221]"
  34. 110 PRINT     "[221]   + [198]ULL [196]OCUMENTATION.  [221]"
  35. 111 PRINT     "[221]                          [221]"
  36. 112 PRINT     "[173][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][189]"
  37. 115 GOSUB50
  38. 120 PRINT"[176][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][174]"
  39. 121 PRINT     "[221]                          [221]"
  40. 122 PRINT     "[221][160]  [201]F YOU DISTRIBUTE A    [221]"
  41. 123 PRINT     "[221]   PROGRAM USING THIS,    [221]"
  42. 124 PRINT     "[221]   PLEASE PLACE A         [221]"
  43. 125 PRINT     "[221]   MESSAGE WITHIN STATING [221]"
  44. 126 PRINT     "[221]   THAT YOU USED THIS     [221]"
  45. 127 PRINT     "[221]   EXTENSION.             [221]"
  46. 128 PRINT     "[221]                          [221]"
  47. 129 PRINT     "[173][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][189]"
  48. 130 GOSUB 50
  49. 140 PRINT"[150][176][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][174]"
  50. 141 PRINT          "[221]                           [221]"
  51. 142 PRINT          "[221]   [211]END [195]ONTRIBUTIONS      [221]"
  52. 143 PRINT          "[221]   AND A [211][193][211][197] TO:          [221]"
  53. 144 PRINT          "[221]                           [221]"
  54. 145 PRINT          "[221]    [199]LENN [210]AUDINS          [221]"
  55. 146 PRINT          "[221]    1818 [207]LD [212]ANNERY [193]CRES [221]"
  56. 147 PRINT          "[221]    [200]UDSON [207]HIO 44236      [221]"
  57. 148 PRINT          "[221]                           [221]"
  58. 149 PRINT          "[173][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][189]"
  59. 150 GOSUB 50
  60. 160 PRINT"[147][155][176][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][174]"
  61. 161 PRINT      "[221]  [210][197] ADDS 7 [195]128 COMMANDS TO THE 64 [221]"
  62. 162 PRINT      "[221]  [212]HEY ARE AS FOLLOWS:              [221]"
  63. 163 PRINT      "[221]                                    [221]"
  64. 164 PRINT      "[221]         [211][212][193][211][200]     [198][197][212][195][200]            [221]"
  65. 165 PRINT      "[221]         [211][215][193][208]      [214][197][210][198]             [221]"
  66. 166 PRINT      "[221]         [198][193][211][212]      [211][204][207][215]             [221]"
  67. 167 PRINT      "[221]           [195][193][212] OR [196][201][210]               [221]"
  68. 168 PRINT      "[221]                                    [221]"
  69. 169 PRINT      "[221]  [212]HE DISCUSSION OF EACH FOLLOWS... [221]"
  70. 170 PRINT      "[221]                                    [221]"
  71. 171 PRINT      "[173][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][189]"
  72. 172 GOSUB 50
  73. 175 PRINT"[152][176][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][174]"
  74. 176 PRINT       "[221]                                    [221]"
  75. 177 PRINT       "[221]   [211][212][193][211][200] BYTES,[200]RAM,[197]RAM,BANK #     [221]"
  76. 178 PRINT       "[221]   [198][197][212][195][200] BYTES,[200]RAM,[197]RAM,[194]ANK #     [221]"
  77. 179 PRINT       "[221]   [211][215][193][208]  BYTES,[200]RAM,[197]RAM,[194]ANK #     [221]"
  78. 180 PRINT       "[221]   [214][197][210][198]  BYTES,[200]RAM,[197]RAM,[194]ANK #     [221]"
  79. 181 PRINT       "[221]                                    [221]"
  80. 182 PRINT       "[221]         [194]YTES = [206]UMBER OF BYTES    [221]"
  81. 183 PRINT       "[221]                 TO TRANSFER.       [221]"
  82. 184 PRINT       "[221]         [200]RAM  = [200]OST [210]AM [193]DDRESS   [221]"
  83. 185 PRINT       "[221]         [197]RAM  = [197]XPANSION [210]AM [193]D.  [221]"
  84. 186 PRINT       "[221]         [194]ANK #= [197]XPANSION [194]ANK #   [221]"
  85. 187 PRINT       "[221]                                    [221]"
  86. 188 PRINT       "[221]   [193]LL THESE COMMANDS ARE OUTLINED  [221]"
  87. 189 PRINT       "[221]   BY YOUR EXPANSION MANUAL EXCEPT  [221]"
  88. 190 PRINT       "[221]   FOR [214][197][210][198].  [214][197][210][198] USES THE [210][197][195]     [221]"
  89. 191 PRINT       "[221]   VERIFY COMMAND.  [214][197][210][198] COMPARES   [221]"
  90. 192 PRINT       "[221]   THE COMPUTERS MEMORY TO THE      [221]"
  91. 193 PRINT       "[221]   SPECIFIED EXPANSION RAM.         [221]"
  92. 197 PRINT       "[221]                                    [221]"
  93. 198 PRINT       "[173][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][189]"
  94. 200 GOSUB 50
  95. 205 PRINT"[155][176][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][174]"
  96. 206 PRINT   "[221]                                    [221]"
  97. 207 PRINT   "[221]   [198][193][211][212] -  [198][193][211][212][160]SPEEDS UP THE 6502  [221]"
  98. 208 PRINT   "[221]           BY BLANKING THE SCREEN.  [221]"
  99. 209 PRINT   "[221]                                    [221]"
  100. 210 PRINT   "[221]   [211][204][207][215] -  [211][204][207][215][160]RETURNS THE SCREEN  [221]"
  101. 211 PRINT   "[221]           AFTER A [198][193][211][212][160]IS ISSUED.  [221]"
  102. 212 PRINT   "[221]                                    [221]"
  103. 213 PRINT   "[221]   [195][193][212] ( OR [196][201][210] ) - [195][193][212] CATALOGS    [221]"
  104. 214 PRINT   "[221]                    THE DISK IN     [221]"
  105. 215 PRINT   "[221]                    [196]RIVE 8.        [221]"
  106. 216 PRINT   "[221]                                    [221]"
  107. 217 PRINT   "[173][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][189]"
  108. 220 GOSUB 50
  109. 225 PRINT"[176][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][174]"
  110. 226 PRINT          "[221]                                   [221]"
  111. 227 PRINT          "[221]   [210][197] ALSO CHANGES [194][193][211][201][195] IN UNSEEN [221]"
  112. 228 PRINT          "[221]   WAYS. [212]HE INPUT PROMPT IS GONE. [221]"
  113. 229 PRINT          "[221]   [193]LSO [193][211][195] OF A NULL STRING IS    [221]"
  114. 230 PRINT          "[221]   NOW EQUAL TO 0.                 [221]"
  115. 231 PRINT          "[221]     [198]INALLY, FOR ALL THE MACHINE  [221]"
  116. 232 PRINT          "[221]   LANGUAGE PROGRAMMERS, THE FULL  [221]"
  117. 233 PRINT          "[221]   DOCUMENTATION WILL INCLUDE WAYS [221]"
  118. 234 PRINT          "[221]   TO ACCESS THE ROUTINES FROM [205][204]. [221]"
  119. 235 PRINT          "[221]     [210][197] CHANGES THE [194][193][211][201][195] [210][197][193][196][217].   [221]"
  120. 236 PRINT          "[221]   PROMPT TO [210][193][205]...  [212]HIS TELLS    [221]"
  121. 237 PRINT          "[221]   YOU THAT IT IS ACTIVE. [193]LSO     [221]"
  122. 238 PRINT          "[221]   WHEN USING THIS WITH A 1700 THE [221]"
  123. 239 PRINT          "[221]   BANK NUMBERS ARE LIMITED TO 0   [221]"
  124. 240 PRINT          "[221]   OR 1.  [212]O DETERMINE WHETHER     [221]"
  125. 241 PRINT          "[221]   THERE IS A 1750 OR 1700 PRESENT [221]"
  126. 242 PRINT          "[221]   [208][197][197][203](49361).  0 MEANS A 1700    [221]"
  127. 243 PRINT          "[221]   [207]THERWISE IT IS 1750.           [221]"
  128. 244 PRINT          "[221]                                   [221]"
  129. 245 PRINT          "[173][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][189]"
  130. 246 GOSUB 50
  131. 300 PRINT"[147]":SLOW
  132. 310 FORR=1TOCT-1:GOSUB60
  133. 315 GETA$:IFA$=""THEN 315
  134. 320 NEXTR
  135. 330 GOTO310
  136.